J3-42.? 



ROYAL KCEEE CORPORATION 
ELECTRONIC COMPUTER DEPARTMENT 

DATA OUTPUT NO. g SUBROUTINE 
(Program 12.7) 



FUNCTION: 



To print (or punch via the typewriter or 20 character/second punch) 
one or more groups of numbers in decimal form where each group may consist 
of one or more numbers stored in consecutive memory locations. All numbers 
in each group are assigned a specified binal point location (q) in the 
calling sequence. Spacing operations are executed in place of leading 
integral zeros. 

INPUT: 



1. One or more groups of numbers stored in memory. 

2. A calling sequence consisting of pairs of instructions of the 
following kind: 

a. The initial location of the group. 

b. The number of numbers (N) and the binal point location (q) 
of the group. 



CALLING SEQUENCE: 



Loc. 


Inst 


.-''n 


R 


c* + 1 


U 


oC + 2 


Z 


oC + 3 


Z 


^H 


Z 


oc + 5 


Z 



Add. 



Lo + 3 
Lo 

Loc .l 

N l Ql 

Loc, 2 

N 2 q 2 



[X+ 2 i] 


Z 


[(..<+ 2 i) + 1] 
l(? + 2 t ) + 2] 


Z 
etc. 



Loc 



.1 



h <3i 



Loc^ = the location of the first number of group i. 

% - number of numbers in group i. N ± is placed in the track position 
(in decimal). 1 < Ni < 63 . qi ~ binal point location of the i 'th group, 
qi is placed in the sector position (in decimal). < q i < 31. 

OUTPUT: 



Each output number will consist of a decimal point and eight (or 
more) decimal degits. The sign follows the last suppressed zero if the 
number is negative. A tab is executed after each number. 

If output is desired through the 20 character per second punch break 
point switch 32 must be depressed. 



-1- 



Order No. 0020 



ROYAL MCBES CORPORATION 
ELECTRONIC CONFUTER DEPARTMENT 

DATA OUTPUT NO. 6 SUBROUTINE 
(Program 12.7) 



Table of q versus Output: 




O - k 
k - 7* 
*7 - 10 
10 - lli. 
Ik - 17 
17 -* 20 
20 - 2k 
2k - 27 
27 - 30 
30 - 31 



O utput 

l.XXXXXXXX 

+X.XXXXXXX 

±XX.XXXXXX 

+XXX.XXXXX 

+XXXX.XXXX 

+XXXXX.XXX 

+XXXXXX.XX 

+XXXXXXX.X 

+XXXXXXXX. 

+XXXXXXXXX. 

+XXXXXXXXXX. 



*See EXAMPLE for the situation requiring the recurrance of upper limit in 
successive classes of q. 

EXIT: 



As was mentioned above under INPUT, a pair of "Z" instructions are 
required for defining the group of numbers to be printed. When the last 
such group has been printed, the routine will exit to the next instruction 
of the calling sequence, and this location will contain a "non - "Z" 
instruction. 



EXAMPLE: 



Loc. 


Inst 


CX" . 


xR 


■~<+.l 


xU 


o< + 2 


xZ 


■>■ + 3 


xZ 


o\ + k 


xZ 


x + $ 


xZ 


* + 6 


xB 



Add. 




Notes 



NL 



2100 



OC-j^ 

^ 7 N 1 " hi ql = .7 
_ K Loc. 2 = 2110 

Kji ? = 11; q2 - 15 



The above calling sequence will cause this subroutine to: 

1. + Frint the contents of locations 2100, 01, 02, and 03 as 
-XX.XXXXXX for those numbers numerically smaller than 
100.00000 or asiXXX.XXXXX for those numbers which exceed 
this number. (See q of 7 under Table of q vs. Output). 

Print the contents of 2110 thru 2120 as * XXXXX XXX 

Exit to- + 6 which is the "non-Z" instruction terminating 

the calling sequence. 



2. 
3. 



-2- 



ROYAL MGBEE CORPORATION 
ELECTRONIC COMPUTER DEPARTMENT 
DATA OUTPUT NO. 6 SUBROUTINE 
(Program 12.7) 



PROGRAM STOPS: 



■ tjOC ' Meaning and Remedy 

Lo + 013U N < 1. Depress the start to exit 

without printing. 



ACCURACY: 



Output is exact (and rounded) for eight printed digits. When more 
digits are printed, the ninth printed digit may be high by one or two. 



STORAGE ; 



320 locations of instructions and constants (5 tracks) . Ten 
locations of temporary storage (track 63, sectors 03, 05, 06, 11, 32, 33 M 
5U, 56, 59) . ' ' 



TIME: 



Approximately 30 words per minute via typewriter. 

Approximately 60 words per minute via 20 character/second punch. 
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J?~^2,? 



Job No. 



-Prog. No. 



^ LGP-30 CODING SHEET 

// --' <l / Prep, by tO r '- LLl±iOO>. ^\,<a by. 



Problem. 



/;. 



Poqe__Z__of /.Q_ 

Dale J ^/V/lT f 

Track <2i2 





Program Input o. 



Code3 v) 


Location 


Instruction 
Op. Address 


g- Contents of 
co Address 


Notee 




1 


71 










— i i_ 




/ 




X 1 








6.0. o,o 


- 1 

, , .hf.O.OA 








1 — .— 










1 


. . .Rf.LOZ 








. • 










2 


, . .Via b.^o 








1 l_ 










3 


i , . /; iL . . ^J 


' XI V -/, /y c 


/ve^ 




1 A- 










4 


. . .U\0./&.O 








1 l_ 










, , s 


. . .A\OJ2.7 


/<e<*- 






1 1. 










6 


. X£\3J*.#Z 


.2? ^^ x? M 
















7 


. .V./^.A^.S' 


- XI "tf " 
















8 


. . .0x0.2.4 4- 


















9 


. . cja^.? 


















,1,0 


. . Up.£.n.b 


















1 1 


. I.B^.onoO 


X 












» * 




1 2 


, . .Of .0.4.0 


















1 3 


. .X.z'p.O.nO 


/ € ■ £ i 
















1 4 


. . .Hf #5.0 


O-0 33 9 /O 
















1 S 


. . X\0.3.?*. 


XSet /?- 


"Z> TftfiHsr-trt 














1 6 


. , ./.y;.^^ . 


















t 7 


. XSf. 0.0.3 


yh 
















1 8 


. . irja.^.^? . 


XB aa & $ 
















1 9 


. . 0o\0.4.o .5 ■ 


XI /C 30 
















2 


. . Olf.O.O.O # 


















2 1 




/<£- 3 
















2 2 


. . .^a/.^.tf , 








. 0. t 


\0i(). 


0, 


'ox ' 




2 3 


. . . | . /.GO) , 


X 
















2 4 


,o. o.o f. cj.no . 


^v^ f / 


& 














2 5 


. .X.0f.3./O • 


»v' " i/v /v t /> £ 


ft £ . C ■ 














2 6 


, .X.Uf ,0.0,5 • 


TAvA MA 


■ O 














2 7 


. . .Of .3. A3 . 


X : p/ c..v/ 


<ch ft 














2 8 


i 

. . Uf.o.OO • 


















2 9 


■ 

, O.Ox 0.0. O.O ' 


^ ■& .5 •-, 
















3 


1 

, . .Of.O/0 . 


/^'///ys/r/i 





../ 


. a c 


iaa 


'-. 


OJ ' 




3 1 


1 


X a? e 3/ 












t 


Cot 


idltlona 


1 Stop Code 


LlSJ Carriage Retur 


n 



Royal M?Bee Corporation 



Job No. 
Prob 



-7 

- - . — 



LGP-30 CODING SHEET 
.Prep, hy Hi, TCH ' 'V-3 rirM. by. 



Page. 



.01. 



/O 



-Date. 



5~/?s 



-Track. 






Program Input 
Codes 


a 



Location 


Instruction 
Op. Address 


* Contents of 
Address 


Notes 


1 


j 


X 
















/ 
















0. C\ 3 , 2 


1 

• R/- ^ < 4- 
■ 1 /\. ' 1 1-'. 1 -'i -^ 1 ' 






















3 


3 




X£j ,£3.(?^ 






















3 


4 




, ,/^.a /. 7 






















3 


S 






^Ja^.3.? 


X\ / a 5///T 


Tf)hl<L~ —/ 


















3 


6 






XfJ. . J 


S / <?// -a 


OR ~ 


















3 


7 






,^j / A 3 


/ cg ! ^ <? 




















3 


8 






.7^^.5-3 


-^ ^////^ ^ 


°C'^')nO 


















3 


9 






X£ \k33.Z 


X /^7. 


: 


















4 









.fi\03./.2 


/<£^ 




















4 


1 






R\ojx.o 






















4 


2 






.iJ\0*,.o t O 






















4 


3 






1 


X <2 6r-' •=£ ^ 




















4 


4 






Jfj&.Sti 


-^ ;%/, £ d . 


"-'C / i\-i {/ c 


















4 


5 






1 


/0 <& 3/ 




















4 


6 






X.A-V. 5.3,2 


/Vo- 




















4 


7 






jj\ao&.% • 


X 




















4 


8 






:r\oj^.o 






















4 


9 






,0\(l^6K0 






















5 









s\ojl^ 


3 <if ju ej- 




















5 


1 






T/y'K^l 


Xl-^ rV/'it- 


Don/?; a C 


















S 


2 






&pO$J 


/a & 3/ 




















5 


3 






y/p3.$A. 


/ft? ■ 




















5 


4 






u\o.o.s.< 






















5 


5 






X\n/.£.o 


X 




















5 


6 






.u\o,^o.o 






















5 


7 






s \rx ^. -5 


<?- & js. 7 




















5 


8 






7r\o^^ c ( 


~ ^ /'-'/■///C p ( 


y c a i-x. C 


















5 


9 






.tip, 0.3. I 


X S0&8/ 




















6 









X/M.3^ 


4/0 




■ 
















6 


1 






UxO.O.62. 






: ■ h • 










6 


2 






Kp./.2P 










j 


1 


J 1 


6. 


3 


> 




,0)0,3,00 


X 





CondittonaliStOR Code 



Carriage Return 



Royal M c Bee Corporation 



Job No.. 



Problem. 



-vr/ *. 



-Prog. No /^' 



LGP-30 CODING SHCE' 
.Prep, bv fi is T ■- .V / "/ S 



-Ck'd. by. 



Pooe 3 r.1 ^/£) 

Dale 



r ,4' 



, /"; 



' c,.'t. ■//; t. 



-Track. 



/ > f 

ot 





Program Input c 
Code:; uj 


Location 


Instruction 
Op. Address 


§• Contents of 
i/) Address 


Notes 




1 












-i 1 1 j . i, 


i 


X 




, . . | 




/ o o 

L 1 1. ., . 




3" (ii ^2 '1 










1 


. . .T|^.^.6/y 


' ~^y//;nh Dec //.■/,;.(.. 6 




-1 1 * | » 




2 
i i i 


. . 3 p. 6.*,/ 


^ *? 3/ 






-JL 1 L. J L_ 




3 


. .YA/p. 3.3.-2. 


• X /#? 






J 1 ' 1 ■ 




4 

1 L_ . 1 . 


. . .Up./. 6. 5 








' » 1 j ■ 




5 

. ■- 1 1 1 .. _ 


. . :r\o./^o 








J 1 1 1 \ 




6 

■ ■ ■ 1.., — 1... I 


. . J)p.\O.Q 








J 1 1 | ' 




7 

■ ~ i -l_. ,L 


, . S'fiJ &A 


- X ^^ 










8 


. . ^f\o^< c i 


' ^V^> Z)Oi 


" //^/fi. d 








9 

1— .... L -,. ,1 


. . .Bp.a^i 


/o (& 3 


/ 




i , J ' ■ j ' 




1 

— i 1 i 


, ,XA/'p.3.3A 


^?: . 






1 ' ■ i j J 




1 1 

* » i 


, . .Op/f?-.? 


X 






J 1 1 1 ' 




1 2 
1 1 — i 


, . ,/^a/...2.7 


/e --^ 






1 1 ' j 1 




1 3 


. .X.^ r la.A.-> 


■^ (: C G\ U 






1 1 1 1 J ' 




1 4 
i. i ■ 


. ,V^|/,^4^_ 


"4. " 






t . 1, 1 1 L_ 




1 5 
— i — i i 


. . .0',a^> , 


X 






I 1— — 1 1 ' 




1 6 
1 1 i 


. . ,/^ri^ < 


/ C <f- 






» ' ' I 1 




1 7 


, , .UfiXL.^.t > 








1 ' ' 1 ■ 




1 8 

1 1 L. 


. . M\0.4.6.n . 


/ex. 






1 1 | 1 




1 9 
.1 i i 


, . Y./3J6.?^.5 , 


XI /. 5 C • 






u. — l 1 j ' 




2 

L 1 I 


. . //'pL . .^ < 






-^ 


an^o.t 


).03 ' 


, , 2 , ' 


.^^^|/7o:,7.r} . 


/^ ^ 






— i — i i ■ 




2 2 
— i — i — 1__ . 


. . . I . ./.£ , 


^ e- ' .42 ^ f 


'/ (5 : <=» 3 




i » i ■ 




2 3 

_i — i i 


. . . I . . .^~ < 


^ / e ;; ^ 9 






* ■ i i 




2 4 
— i_ i... i . . 


. .X.2JiU.5:<? , 


Z>e/c-; it 






(•it 




2 5 

1 L 1, . 


. .y.Pp.^-.i./ . 


" 7>y/. " 






■ ■ i ■ 




2 6 
— i i i 


. . //|a^.£- . 






-/-*■ 


0.0J)\0<0 


>0^ ' 


2 7 

i. 1 1 


x.aoxa'j.a.o. 


X! /e -t 2 - 






i 




2 8 

— — ■- i i 1 — - 


i 


"£ (St oi3 






■ ' j 1 _ 




2 9 

1 1 1 


. . . | . . j.j , 


^ e ^ 7 






L « 1 ^ 




3 

— i — i._ i 


. .XA63J-.4 . 


4s , 




j , 


J J i , 




3 1 

— i 1 1 


. . ,A£ , .7. 


X\ 


1 



Conditional Stop Code 



Carriage Beturn 



Royal M9Bee Corporation 



Job No. 



-Proq. 



LGP-30 CODING SHEET 
*!*. /<£' / Prep, by / A- ■/'. Wi Ck'd. by. 



Paqe_±z£ of c£.^. 

_Do.e £2^Z£ V 



Problem ^ 



^/^ GotHr£ dsli £■ 



■■/'s6/r;-.:t./t;e. 



.Track. 



/?/ 



Proqram Input 
Codes 


a. 




Location 


Instruction ] 
Op. Address o 


*• Contents of 

i Address 


Notes 


" ' I 


i 


XI 














i 














^./.3,2 


. . JAO^^O < 






/ 





a 


Of JO 


o£ 


/ 




3 


3 




1 


/<& 3^ 




/ ■ 














3 


4 




, Z 


/<& 30 ££k 


: . ^^^ r 




















3 


5 






.l/p./ft-A 


X A/^ / 






















3 


6 






/2r\ao.a9 


£ & £ c \ 






















3 


7 






























3 


8 






/fyOO.^H 


=i C£" .5 ■-/ 






















3 


9 






l\0.4:/J 


53 






















4 









.i\0.a^6 
























4 


1 








/3 tiyt^JJ 






















4 


2 






.7|0.3^ 
























4 


3 






i?j#.0.:'.3 


XI 






















4 


4 






,S\n./.*.5 
























4 


5 






jaL . J 


£. y/T 






















4 


6 






y(&\3^6& 


^i%V 






















4 


7 






.u\o.o.o.o 


X 










i * ' 












4 


8 






$\ojjx.o 
























4 


9 






Jj\C>ZO.G 
























S 









$\0.3^6 


7 <£-' ^ <7 






















5 


1 






7?{J^€T.1 


Xh? Ps//'£ 


Dec / kic C 




















5 


2 






.B\0.03./ 


/& C?3/ 






















5 


3 






)(M\(*33X 


/fa- 






















5 


4 






ij\0./S.6 
























5 


5 






R\ojjlo 


XI 






















5 


6 






.l/p. 3 a c 
























5 


7 






.5ja/.A6 


p <£2.<2<3 






















5 


8 






rfp^s."i 


-rfrs^t £>c 


T/'->ia. C 




















5 


9 






3\ao. z / 


XI /0 <& 3 / 






















6 









X.N\£3.^ 


/^? - 






















6 


1 






.op./Jji 
























6 


2 






fi\o,/^o 












i . 












6 


3 






Maat.o 


X 


, 














i 




Co 


ndi 


tlo 


rial 


Stc 


>p Code 


I2SI Carriage Betu 


rn 



Royal M c Ree Corporation 



Job No. 



-Prog 



LGP-30 CODING SHEET 
N „ /ZL i 7 Prpn. hy H >>T C h ' j±e Ck'd. by. 



Paqe 

Date. 






Proble 


m y9o/a. 


rif. 


r~ 


^ 


7^/^ 


<r So/sf-K-ist;/. 


XL 


Trn^k (V -2- 






Proqram Input 
Codes 


a 




Locatlon 


Instruction \ 
Op. Address u 


* Contents of 
5 Address 


Notes 


1 


i 


X 
















t 












fi.2,°.° 


, , ,sia/,^,* ' 


^e:^-/ 



















1 




.X./Jf.^.0.6 



























2 




. D fin. 4-3 ' 











0.0 /i 


() 





1 


1 









3 




0,)J jj.J.J.J - 


5? /^ <*; ^ 


J 
1 


~r 





















4 




.X.CJ^.?,3 


/V/V/fe /i^< ^ 


fc 5. 























5 




.X.S |^.2). -5.3 




; 























6 




.X//\6.Z.f.6 



























7 




. l/fjLZA. 


X 


i 























6 




/2\3.u..*> 


^v-y^ tj 


i 























9 




. .Ufj.'Z/.? 
























1 







. #\f)£:+6 


x e" -^ 






















1 


1 




. rfy-j.nn.6 


xi -?a / 






















1 


2 




. S\a/j-,7 


/&<?-- 






















1 


3 




. X.£\ 3si. 5. 


/^e £<z m 






















t 


4 




y.p//j,j,<j 
























1 


5 




. jjp.x+fh 


53 






















1 


6 




.X//|^.3^7 


'/cHPchat < 






















1 


7 




. .S'f. , J 


/0 






















1 


e 




. ./9|6V.3.3 


/ & 30 






















1 


9 




. .Tf.ao.v 


K-~?n/r to 


}^ n>-t- 




















2 







. .()\G.O.?>.^- 
























2 


i 




. Ap.3..SL t 6 
























2 


2 




. J?\o&f$ 


/e ''a? 7 






















2 


3 




. >l\0.Z.2.<c 


X 




















2 


4 




. .U\O.0j.^ 






/ / 





0.0 f 


/'t 




/ 


/ 






2 


5 


j 


O.O.Of,O.O.u 


«*<!* ^ 




T^ 


















2 


6 




, &{._. , .^j 


/l/(Jh-U:-:t 77v 


'n/nt 




















2 


7 




XM.3.5-.& 


7±y*M* r 


>ic fifty C 




















2 


B 




. -fp.^.o^- 




J 




















2 


9 




. 3\o,x^J 


Xfc^a/ 


/ 1 1 _ - / 




















3 







. S\aa*& 
























3 


1 




, MG&Z? 


X 





Conditional Stop Code 



ilSI Carriage Return 

Royal M c Bee Corporation 



Job No. 



Prog. No. 



LGP-30 CODING SHEET 
£-2_.Prep. by thil± '">'" & 



Probl 



/■}. y. 



/to c? 



■0£>/?,,',t //> ^ 



-Ck'd. by. 



Page <£ «f /^ 



.Track. 






Proqram Input 
Codes 


a 



to 


Location 


Instruction 
Op. Address < 


J- Contents of 
n Address 


Notes 


1 


/ 


7\ 












/ 












O.X 3 . 2 


. . .i\a+fa/ 


• XPO7 0/ 


''_ " 
















3 


3 


. . y\o.az.6 




















3 


4 


. .y.#j/£.*,.5r<£ 


< /#?• 


















3 


5 


. . /v|^. ^* 


•59 


















3 


6 


. y^jr;^;^ 


3. <& ^ 


















3 


7 


. . ./^.iTA 


-^^■4- 


















3 


8 


. . rff.xix- 


• -9 C, /, A, 3 


















3 


9 


. , .SJaa?,^ 


- X! a e ^ 


















4 





. . Tjtf./Vyi- 


, —? % 5" 


















4 


( 1 


1 


/ <&,-£- 


















4 


t 2 


. .X^j^.A /-f 


J>e 6* if 


















4 


3 


. Xfy^L^ 


X! "<£ " " 


















4 


4 


. . .r|q///. 


-^ 3, ^, ^ 4 


<k 
















4 


5 


. yp\oy./^t 


II y // 


















4 


6 


, j(ft\b33A 


//b ■ 


















4 


7 


, . .^ja/./.v < 


^ 


















4 


8 


, X &\& ?*e.6 ' 


^ -/ j <r 7?e 


















4 


9 


. . .u\a/ihfj 




















!> 





, ,^4(Q6:c7.5"< 


5" <f~ o5 9 


















5 


1 


. J(.P\Q:*>I. / 


X ^/P. 




-A-. 


tf 


tf^y?// 


a/ 


/ 






5 


2 


^q^^a;,^,^ • 


^<^^L 


















S 


3 


. yAfe^/j > 


/'(^V A-|/v>/> fn £ 


- F£-C 
















5 


4 


. . //\0.6./.Z - 


/<fS? -a «? 


















5 


S 


, yjffissy- . 


53 FCcl- v-/ 


















5 


6 


. . ,^|rj.(73^ . 


Z^ ^/tf "/^ 


ble. - / > 
















5 


7 


. , .V,G..i/.7 - 




















5 


8 


. . .V.tf.V.V? < 




















5 


9 


/ 1 

, . ftp./ 3-3 • 


XI /(&JC, 


















6 





. . Sf./3./ > 




















6 


1 


. . .Of 3 A3 > 




















6 


2 


. , .BxO/73.0 . 


uCo^/i ) 


/3 






■ iii 


, 
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